Revista CD Expert 34/CD Expert nº 34.iso/Kyodai Mahjonng/_SETUP.1/kyodai3.exe/0/RCDATA/TKYODAI/TKYODAI.txt

Text File | 1997-12-01 | 26KB | 1,016 lines

object Kyodai: TKyodai
  Left = 192
  Top = 108
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Kyodai 3.01 '
  ClientHeight = 418
  ClientWidth = 600
  Font.Color = clBlack
  Font.Height = -15
  Font.Name = 'Times New Roman'
  Font.Style = []
  Menu = MainMenu1
  OnCloseQuery = FormCloseQuery
  OnCreate = Init
  OnMouseMove = FormMouseMove
  OnMouseUp = ButtonDown
  OnPaint = Peindre
  PixelsPerInch = 96
  TextHeight = 17
  object Game: TPaintBox
    Left = 0
    Top = 70
    Width = 504
    Height = 322
    Align = alClient
    Color = clBlack
    ParentColor = False
  end
  object HofBox: TPaintBox
    Left = 504
    Top = 70
    Width = 96
    Height = 322
    Align = alRight
  end
  object Buffer: TImage
    Left = 32
    Top = 281
    Width = 704
    Height = 468
    Visible = False
  end
  object ImageFond: TImage
    Left = 59
    Top = 308
    Width = 704
    Height = 468
    Enabled = False
    Visible = False
  end
  object Pai: TImage
    Left = 12
    Top = 88
    Width = 414
    Height = 280
    Enabled = False
    Visible = False
  end
  object SmallBuf: TImage
    Left = 440
    Top = 80
    Width = 46
    Height = 56
    Visible = False
  end
  object Hand1: TImage
    Left = 440
    Top = 144
    Width = 32
    Height = 32
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object Hand2: TImage
    Left = 440
    Top = 184
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object HandMask: TImage
    Left = 440
    Top = 224
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object PaiBuffer: TImage
    Left = 80
    Top = 208
    Width = 370
    Height = 1036
    AutoSize = True
    Visible = False
  end
  object SaveHof: TImage
    Left = 458
    Top = 320
    Width = 20
    Height = 20
    Enabled = False
    Visible = False
  end
  object HofPic: TImage
    Left = 488
    Top = 152
    Width = 49
    Height = 105
    AutoSize = True
    Visible = False
  end
  object Tools: TPanel
    Left = 0
    Top = 0
    Width = 600
    Height = 35
    Align = alTop
    BevelWidth = 2
    Font.Color = clAqua
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object Bevel7: TShape
      Left = 353
      Top = 6
      Width = 73
      Height = 25
      Brush.Color = clGray
      Pen.Style = psClear
    end
    object ExplorerButton2: TExplorerButton
      Left = 40
      Top = 5
      Width = 49
      Height = 25
      Caption = 'Undo'
      Options = [boPopupMark, boShowBevel]
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = Back
      ParentFont = False
      IBitmap = {}
    end
    object ExplorerButton3: TExplorerButton
      Left = 96
      Top = 5
      Width = 49
      Height = 25
      Caption = 'Hint'
      Options = [boPopupMark, boShowBevel]
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = Hint
      ParentFont = False
      IBitmap = {}
    end
    object HallFameButton: TExplorerButton
      Left = 544
      Top = 5
      Width = 97
      Height = 25
      Caption = 'Hall of Fame'
      Options = [boPopupMark, boShowBevel]
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = ShowScores
      ParentFont = False
      IBitmap = {}
    end
    object ShuffleButton: TExplorerButton
      Left = 152
      Top = 5
      Width = 57
      Height = 25
      Caption = 'Shuffle'
      Options = [boPopupMark, boShowBevel]
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = Shuffle1Click
      ParentFont = False
      IBitmap = {}
    end
    object ExplorerButton1: TExplorerButton
      Left = 8
      Top = 5
      Width = 25
      Height = 25
      Hint = 'New game'
      Bitmap.Data = {
        4A050000424D4A0500000000000036040000280000000F0000000F0000000100
        0800010000001401000000000000000000000001000000010000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A60031390000EFEFEF000000B50031636300B5B5B5004A949C00A59DFF00ABA3
        FF00AFAAFF00B6B1FF00BDB7FF00C1BEFF00C7C3FF009C94FF00F6B6B600F7BD
        BD00F8C4C400F9CDCD00FAD4D400ADCEFF00B5D6FF00B5CEFF00B5CEF700BDD6
        FF00BDDEFF00C6DEFF00CEDEFF00BDD6F700F5AFAF00A5C6FF00C6D6FF00C6DE
        F700CEE7FF00FBDBDB00D6E7FF00FCE2E200DEEFFF00C6E7FF00D6EFFF00DEE7
        FF00ADCEF70084ADFF006BA5FF007BA5FF0073A5FF00ADE7EF00A5DEEF009CDE
        E7005ABDDE008CCEDE0094D6E700BDEFF700006B1000007329000073FF00FF9C
        3100F79429000084FF0000EFF7006BFFFF0000733900006B2100006308000063
        000084CEE7000073F7009CDEF700007B4A00F78C2900A5E7F700007B9C00CECE
        CE00E7E7E700B5EFFF0094D6EF008CCEEF00EF84290073D6E7007BBDEF00ADDE
        FF0000845A009CD6F70063ADCE0031A5D60094CECE00004A0000528431008CDE
        84008CB573009CDEDE0000846B00E77B2100A5E7E7008CB5B500BD180000ADF7
        F700DE732100C6FFFF00EFFFFF007BC6F7007B7B7B0084CEF7008CD6F700D673
        210094DEFF009CE7FF00ADEFFF00CE6B21007BF7FF00A5E7D6009CD6BD00BDEF
        DE009CFFFF000800E7005AAD8C006BC5F7006BDEDE00C66318007BD6F700008C
        7B0084DEF700BD5A18008CE7F70000B5B500B5521800C18C6B00AD4A10009C39
        1000A59C0000DEE7000000D6FF0000B5FF00A5421000008CFF007B210800008C
        8400009CFF0000EFFF0000948C0000DEFF00943110000094940000C6FF00B5E7
        FF00B5731800A56B18009C631000842908008C5A1000009CA5000085EA007B52
        08006B520800634A0000009CAD00ADAD000000A5BD0000A5B50000A5C6007B18
        080000B55A00FFF77B00A5940000008CDE0008FFFF000094D6009C8C0000F7EF
        7B00009CD60000ADD60000A9CE00009CCE006B080000CEEF1800947B00006308
        0000FFFF73008C730000FFF75A0000B7EF00C6CE2900DE521000DE5A29005A00
        0000846B0000F7FFB500EF6B52007B84A500E7634200EF736B0084A5D600F77B
        7B0094B5DE00CEF74A0094BDEF00524200006B9CBD00F7FF8C0000BDFF00E7FF
        840018C6FF00D6F77300C6E75A00ADDE4A00F7FF9400CE948C007B5A0000DEFF
        6300C6FF2900FF8C940018BDFF000094FF00CEFBA400C6F79400B5EF84009C63
        3100000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00050705000507
        0000000F07070700000707F8F8F80000070707000000000F0707000707F80000
        00F8F8F8000707000000000F0700070700FFFAFFFAFF00F8F800070000000005
        07000700FF0005000005FF00F80007000000000F0007F8FF0000FA02020000FF
        F8F800000000000F000700FA00FA02FA020200FA00F800000000000500FF00FF
        000004FA00060200FF00F8000000000F00FF00FA00FFFAFA02FA00FA00070000
        0000000F00FFF8FF0000FFFFFA0000FFF80700000000000507000700FF000500
        0005FF00070007000000000F0700FF0700FFFAFFFAFF0007070007000000000F
        070700FF07F8000000F80707000707000000000F0707070000FFFFFF07070000
        0707070000000507050005070001}
      Options = [boPopupMark, boShowBevel]
      OnClick = NewGame
      IBitmap = {
        424D060300000000000036000000280000000F0000000F000000010018000000
        0000D002000000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBFBFFFFFFFFFFF
        FFFFFFFF000000000000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF000000BF
        BFBFBFBFBFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000BFBFBF
        BFBFBFFFFFFFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF000000FFFFFFFFFFFF000000BFBFBF0000FFBFBFBF000000BFBFBF00
        0000FFFFFF000000000000000000000000000000FFFFFF000000FFFFFF000000
        BFBFBFFFFF00000000BFBFBFFFFFFFFFFFFF000000000000FFFFFF7F7F7F7F7F
        7F000000000000FFFFFFFFFFFFFFFFFF0000000000FF000000BFBFBF000000FF
        FFFF000000FFFFFF7F7F7FFFFFFF7F7F7F7F7F7F000000FFFFFF000000FFFFFF
        0000000000FF000000FFFFFF000000FFFFFF000000FFFFFFFFFFFFFFFFFFFFFF
        FF7F7F7F000000FFFFFF000000FFFFFF0000000000FF000000FFFFFF000000FF
        FFFF000000FFFFFFFFFFFFFFFFFF7F7F7FFFFFFF000000FFFFFF000000BFBFBF
        0000000000FF000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFF
        FF000000000000FFFFFFFFFFFFBFBFBF0000000000FFBFBFBF000000BFBFBF00
        0000FFFFFF000000000000000000000000000000FFFFFF000000BFBFBF000000
        BFBFBFFFFF00BFBFBF000000FFFFFFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF000000BFBFBFBFBFBF000000BFBFBF0000BFBFBFBFBFBFBF000000FF
        FFFFBFBFBFFFFFFF000000000000000000FFFFFFBFBFBFBFBFBF000000BFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000FFFFFFFFFFFFFFFFFFBFBF
        BFBFBFBF000000000000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBF}
    end
    object PauseButton: TExplorerButton
      Left = 216
      Top = 5
      Width = 65
      Height = 25
      Caption = 'Pause'
      Options = [boPopupMark, boShowBevel]
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = PauseClick
      ParentFont = False
      IBitmap = {}
    end
    object PlayerPanel: TExplorerButton
      Left = 352
      Top = 5
      Width = 73
      Height = 25
      Caption = 'Player1'
      Options = [boPopupMark, boShowBevel]
      UnselectedFontColor = clWhite
      Font.Color = clAqua
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      OnClick = ConfigClick
      ParentFont = False
      IBitmap = {}
    end
    object HelpButton: TExplorerButton
      Left = 432
      Top = 5
      Width = 49
      Height = 25
      Caption = 'Help'
      Options = [boPopupMark, boShowBevel]
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = HelpClick
      ParentFont = False
      IBitmap = {}
    end
    object AboutButton: TExplorerButton
      Left = 488
      Top = 5
      Width = 49
      Height = 25
      Caption = 'About'
      Options = [boPopupMark, boShowBevel]
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = About1Click
      ParentFont = False
      IBitmap = {}
    end
    object ExitButton: TExplorerButton
      Left = 648
      Top = 5
      Width = 41
      Height = 25
      Caption = 'Exit'
      Options = [boPopupMark, boShowBevel]
      ShadingType = stDark
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = Exit1Click
      ParentFont = False
      IBitmap = {}
    end
    object Bevel11: TBevel
      Left = 35
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel1: TBevel
      Left = 91
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel2: TBevel
      Left = 147
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel3: TBevel
      Left = 211
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel4: TBevel
      Left = 283
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel5: TBevel
      Left = 347
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel6: TBevel
      Left = 427
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel8: TBevel
      Left = 643
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel9: TBevel
      Left = 539
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel10: TBevel
      Left = 483
      Top = 5
      Width = 2
      Height = 25
    end
    object Bevel12: TBevel
      Left = 691
      Top = 5
      Width = 2
      Height = 25
    end
    object IRC: TComboBox
      Left = 696
      Top = 5
      Width = 57
      Height = 25
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ItemHeight = 17
      ParentFont = False
      TabOrder = 0
      Visible = False
      OnKeyUp = PInput2KeyUp
    end
  end
  object LigneStatus: TStatusBar
    Left = 0
    Top = 392
    Width = 600
    Height = 26
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Panels = <
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = 'Tiles left'
        Width = 70
      end
      item
        Alignment = taCenter
        Width = 45
      end
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = 'Moves left'
        Width = 80
      end
      item
        Alignment = taCenter
        Width = 35
      end
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = 'Time'
        Width = 50
      end
      item
        Alignment = taCenter
        Width = 50
      end
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = 'Status'
        Width = 55
      end
      item
        Width = 50
      end>
    ParentFont = False
    SimplePanel = False
    SizeGrip = False
  end
  object Media: TMediaPlayer
    Left = 288
    Top = 5
    Width = 57
    Height = 25
    EnabledButtons = [btPlay, btPause]
    VisibleButtons = [btPlay, btPause]
    AutoEnable = False
    AutoOpen = True
    DeviceType = dtSequencer
    FileName = 'ferral.mid'
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    OnNotify = MediaNotify
  end
  object EditorPanel: TPanel
    Left = 0
    Top = 35
    Width = 600
    Height = 35
    Align = alTop
    BevelWidth = 2
    Font.Color = clTeal
    Font.Height = -15
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    Visible = False
    object Level1: TExplorerButton
      Left = 56
      Top = 5
      Width = 25
      Height = 25
      AllowAllUp = True
      Caption = '1'
      GroupIndex = 1
      Options = [boMonoDisplay, boPopupMark, boShowBevel]
      UnselectedFontColor = clBlack
      OnClick = Level1Click
      IBitmap = {}
    end
    object Level2: TExplorerButton
      Left = 80
      Top = 5
      Width = 25
      Height = 25
      AllowAllUp = True
      Caption = '2'
      GroupIndex = 1
      Options = [boMonoDisplay, boPopupMark, boShowBevel]
      UnselectedFontColor = clBlack
      OnClick = Level1Click
      IBitmap = {}
    end
    object Level3: TExplorerButton
      Left = 104
      Top = 5
      Width = 25
      Height = 25
      AllowAllUp = True
      Caption = '3'
      GroupIndex = 1
      Options = [boMonoDisplay, boPopupMark, boShowBevel]
      UnselectedFontColor = clBlack
      OnClick = Level1Click
      IBitmap = {}
    end
    object Level4: TExplorerButton
      Left = 128
      Top = 5
      Width = 25
      Height = 25
      AllowAllUp = True
      Caption = '4'
      GroupIndex = 1
      Options = [boMonoDisplay, boPopupMark, boShowBevel]
      UnselectedFontColor = clBlack
      OnClick = Level1Click
      IBitmap = {}
    end
    object Level5: TExplorerButton
      Left = 152
      Top = 5
      Width = 25
      Height = 25
      AllowAllUp = True
      Caption = '5'
      GroupIndex = 1
      Down = True
      Options = [boMonoDisplay, boPopupMark, boShowBevel]
      UnselectedFontColor = clBlack
      OnClick = Level1Click
      IBitmap = {}
    end
    object Label1: TLabel
      Left = 312
      Top = 9
      Width = 87
      Height = 17
      Caption = 'Layout Name'
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 9
      Width = 38
      Height = 17
      Caption = 'Level'
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 192
      Top = 9
      Width = 58
      Height = 17
      Caption = 'Tiles left'
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 258
      Top = 9
      Width = 8
      Height = 17
      Caption = '0'
    end
    object Edit1: TEdit
      Left = 408
      Top = 5
      Width = 185
      Height = 25
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Left = 528
    Top = 360
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object New1: TMenuItem
        Caption = '&New Solitaire Game'
        ShortCut = 112
        OnClick = ResetGame
      end
      object New2playergame1: TMenuItem
        Caption = 'New 2-Player Game'
        ShortCut = 113
        OnClick = New2playergame1Click
      end
      object NewArcadeMahjonggGame1: TMenuItem
        Caption = 'New Rivers Game'
        ShortCut = 114
        OnClick = NewArcadeMahjonggGame1Click
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 16451
        OnClick = Exit1Click
      end
    end
    object Play1: TMenuItem
      Caption = '&Play'
      ShortCut = 0
      object Undo1: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
        OnClick = Back
      end
      object GiveHint: TMenuItem
        Caption = 'Hint'
        ShortCut = 16456
        OnClick = Hint
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Shuffle1: TMenuItem
        Caption = 'Shuffle'
        ShortCut = 16467
        OnClick = Shuffle1Click
      end
      object Restart1: TMenuItem
        Caption = 'Restart'
        ShortCut = 16466
        OnClick = Restart
      end
      object Stoppe: TMenuItem
        Caption = '&Stop'
        ShortCut = 16472
        OnClick = Stop
      end
      object Pause1: TMenuItem
        Caption = '&Pause'
        ShortCut = 16464
        OnClick = PauseClick
      end
    end
    object Options1: TMenuItem
      Caption = 'Options'
      ShortCut = 0
      object Config: TMenuItem
        Caption = '&Configuration'
        ShortCut = 0
        object EnableHall: TMenuItem
          Caption = 'Enable time tracking for the Hall of fame'
          ShortCut = 0
          OnClick = EnableHallClick
        end
        object WarnMe: TMenuItem
          Caption = 'Start new game when changing layout'
          ShortCut = 0
          OnClick = WarnMeClick
        end
        object StartMusic: TMenuItem
          Caption = 'Run music automatically at startup'
          ShortCut = 0
          OnClick = StartMusicClick
        end
        object Res800: TMenuItem
          Caption = 'Switch to 800x600 at startup'
          ShortCut = 0
          OnClick = Res800Click
        end
        object StartupGame: TMenuItem
          Caption = 'Begin new game at startup'
          ShortCut = 0
          OnClick = StartupGameClick
        end
        object Playmusic1: TMenuItem
          Caption = 'Play music'
          ShortCut = 0
          OnClick = Playmusic1Click
        end
      end
      object HightlightMode1: TMenuItem
        Caption = '&Highlight'
        ShortCut = 0
        object Highlight1: TMenuItem
          Caption = 'None'
          ShortCut = 0
          OnClick = Highlight1Click
        end
        object Highlight2: TMenuItem
          Caption = 'Rectangle'
          ShortCut = 0
          OnClick = Highlight2Click
        end
        object Highlight3: TMenuItem
          Caption = 'Color'
          ShortCut = 0
          OnClick = Highlight3Click
        end
      end
      object Keyboardtype1: TMenuItem
        Caption = 'Keyboard type'
        ShortCut = 0
        object Qwerty: TMenuItem
          Caption = 'Qwerty (US)'
          ShortCut = 0
          OnClick = QwertyClick
        end
        object Azerty: TMenuItem
          Caption = 'Azerty (France)'
          ShortCut = 0
          OnClick = AzertyClick
        end
      end
      object Changeplayername1: TMenuItem
        Caption = 'Player Name'
        ShortCut = 0
        OnClick = ConfigClick
      end
      object CoolMouse: TMenuItem
        Caption = 'Cool Mouse'
        ShortCut = 0
        OnClick = CoolMouseClick
      end
      object ShowTime: TMenuItem
        Caption = 'Show Time Left'
        ShortCut = 0
        OnClick = ShowTimeClick
      end
      object Moves: TMenuItem
        Caption = 'Show &Moves Left'
        Checked = True
        ShortCut = 16461
        OnClick = NStatus
      end
      object ShowHallFame: TMenuItem
        Caption = 'Show Hall of fame'
        ShortCut = 16454
        OnClick = ShowHallPanel
      end
      object Toolbar1: TMenuItem
        Caption = 'Show &Toolbar'
        Checked = True
        ShortCut = 16468
        OnClick = Toolbar1Click
      end
    end
    object Background1: TMenuItem
      Caption = '&Background'
      ShortCut = 0
      object LoadBackground: TMenuItem
        Caption = 'Load from disk'
        ShortCut = 0
        OnClick = LoadBackgroundClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object None1: TMenuItem
        Caption = 'None'
        ShortCut = 0
        OnClick = None1Click
      end
      object Kanji1: TMenuItem
        Caption = '&Kanji (classic)'
        ShortCut = 0
        OnClick = Kanji1Click
      end
      object Dragons1: TMenuItem
        Caption = '&Dragons'
        Checked = True
        ShortCut = 0
        OnClick = Dragons1Click
      end
    end
    object Tileset1: TMenuItem
      Caption = 'Tileset'
      ShortCut = 0
      object Load1: TMenuItem
        Caption = 'Load from disk'
        ShortCut = 0
        OnClick = Load1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MahJongg1: TMenuItem
        Caption = 'Mahjongg (clear)'
        ShortCut = 0
        OnClick = MahJongg1Click
      end
      object MahJongg2: TMenuItem
        Caption = 'Mahjongg (darker)'
        ShortCut = 0
        OnClick = MahJongg2Click
      end
    end
    object Theme: TMenuItem
      Caption = 'Theme'
      ShortCut = 0
      object LoadTheme: TMenuItem
        Caption = 'New Theme'
        ShortCut = 0
        OnClick = LoadThemeClick
      end
      object UseTheme: TMenuItem
        Caption = 'Use Theme'
        ShortCut = 0
        OnClick = UseThemeClick
      end
    end
    object Layout1: TMenuItem
      Caption = '&Layout'
      ShortCut = 0
      object Loadlayout: TMenuItem
        Caption = 'External layout'
        ShortCut = 0
        OnClick = LoadlayoutClick
      end
      object Editlayout1: TMenuItem
        Caption = 'Edit layout'
        ShortCut = 0
        OnClick = Editlayout1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Theater1: TMenuItem
        Caption = 'Arena (Very easy)'
        ShortCut = 0
        OnClick = SelectTheater
      end
      object Traditional1: TMenuItem
        Caption = 'Traditional (Normal)'
        Checked = True
        ShortCut = 0
        OnClick = SelectTraditional
      end
      object BigHole1: TMenuItem
        Caption = 'Deep Well (Hard)'
        ShortCut = 0
        OnClick = SelectBlock
      end
      object Beatle1: TMenuItem
        Caption = 'Beatle (Nightmare !)'
        ShortCut = 0
        OnClick = SelectBeatle
      end
    end
    object Music2: TMenuItem
      Caption = 'M&usic'
      ShortCut = 0
      object FerralMus: TMenuItem
        Caption = 'Ferral'
        Checked = True
        ShortCut = 0
        OnClick = FerralMusClick
      end
      object GokurakuMus: TMenuItem
        Caption = 'Gokuraku'
        ShortCut = 0
        OnClick = GokurakuMusClick
      end
      object KyodaiMus: TMenuItem
        Caption = 'Kyodai'
        ShortCut = 0
        OnClick = KyodaiMusClick
      end
      object GisorsMus: TMenuItem
        Caption = 'Gisors'
        ShortCut = 0
        OnClick = GisorsMusClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = HelpClick
      end
      object Register1: TMenuItem
        Caption = 'Register'
        ShortCut = 0
        OnClick = Register1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Halloffame1: TMenuItem
        Caption = 'Hall of fame'
        ShortCut = 0
        OnClick = ShowScores
      end
      object About1: TMenuItem
        Caption = '&About...'
        ShortCut = 16449
        OnClick = About1Click
      end
    end
  end
  object MSOfficeCaption1: TMSOfficeCaption
    AppNameText.FontKind = fkSystemB
    AppNameText.Visible = True
    CaptionText.FontKind = fkSystem
    CaptionText.Visible = True
    CompanyText.Caption = 'Kyodai 3.01'
    CompanyText.ColorActive = clInfoBk
    CompanyText.Font.Color = clBlack
    CompanyText.Font.Height = -13
    CompanyText.Font.Name = 'Arial'
    CompanyText.Font.Style = [fsBold, fsItalic]
    CompanyText.FontKind = fkCustom
    CompanyText.Visible = True
    Color = clMaroon
    Enabled = geAlways
    Left = 528
    Top = 392
  end
  object Timer: TTimer
    Interval = 10
    OnTimer = Temps
    Left = 560
    Top = 392
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Left = 496
    Top = 360
  end
  object EditorMenu: TMainMenu
    Left = 464
    Top = 360
    object Editor1: TMenuItem
      Caption = 'Exit'
      ShortCut = 0
      object Saveandexit: TMenuItem
        Caption = 'Save'
        ShortCut = 0
        OnClick = SaveandexitClick
      end
      object Saveasandexit: TMenuItem
        Caption = 'Save as...'
        ShortCut = 0
        OnClick = SaveandexitClick
      end
      object Cancel1: TMenuItem
        Caption = 'Don'#39't save'
        ShortCut = 0
        OnClick = SaveandexitClick
      end
    end
  end
end